The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/frad2.src

Text File | 1990-10-09 | 686b | 29 lines

%%HP: T(3)A(D)F(.);
@ by Larry Morton
\<< SQ \->Q OBJ\-> DROP2 DUP 1000000000
  IF >
  THEN 9 SCI DROP2 DUP SQ \->Q OBJ\-> DROP2
  END 'K' STO 1 'A1' STO 1 'B1' STO 1 'C1' STO 1 'D1' STO PRIME OBJ\->
  DO TJ
  UNTIL DUP 0 ==
  END DROP 'K' RCL PRIME OBJ\->
  DO TK
  UNTIL DUP 0 ==
  END DROP STD "" 'A1' RCL 'B1' RCL
  IF \=/
  THEN 'A1' RCL \->STR + 'B1' RCL 1
    IF \=/
    THEN 47 CHR + 'B1' RCL \->STR +
    END 1 SF
  END "" 'C1' RCL 'D1' RCL
  IF \=/
  THEN
    IF 1 FS?
    THEN 42 CHR +
    END 131 CHR + 40 CHR + 'C1' RCL \->STR + 'D1' RCL 1
    IF \=/
    THEN 47 CHR + 'D1' RCL \->STR +
    END 41 CHR +
  END + { A1 B1 C1 D1 K } PURGE 1 CF
\>>